Testing Data Pull

tmap_mode('view')

tmap mode set to interactive viewing

tm_shape(mi_2010_spat) + tm_fill("MOVEDNET", style='sd', palette='PiYG')

Variable(s) "MOVEDNET" contains positive and negative values, so midpoint is set to 0. Set midpoint = NA to show the full spectrum of the color palette.

tm_shape(mi_2015_spat) + tm_fill("MOVEDNET", style='quantile', palette='PiYG')

Variable(s) "MOVEDNET" contains positive and negative values, so midpoint is set to 0. Set midpoint = NA to show the full spectrum of the color palette.

mi_2020_raw <- get_flows(geography = 'county subdivision',
#                  breakdown = 'RACE',
#                  breakdown_labels = TRUE,
                  state = 'MI',
                  county = 'Cheboygan',
                  output = 'wide',
                  year=2020)

Using FIPS code '26' for state 'MI'
Using FIPS code '031' for 'Cheboygan County'

mi_2020_sum <- mi_2020_raw |> 
  group_by(GEOID1) |> 
  summarize(MOVEDOUT_M = sum(MOVEDOUT_M, na.rm=TRUE),
            MOVEDIN = sum(MOVEDIN, na.rm=TRUE),
            MOVEDOUT = sum(MOVEDOUT, na.rm=TRUE),
            MOVEDNET = sum(MOVEDNET, na.rm=TRUE),
            MOVEDNET_M = sum(MOVEDNET_M, na.rm=TRUE))

csd <- tigris::county_subdivisions(state="MI")

Retrieving data for the year 2021
Using FIPS code '26' for state 'MI'

mi_2020_spat <- merge(csd, mi_2020_sum, by.x = 'GEOID', by.y = 'GEOID1')

tm_shape(mi_2020_spat) + tm_fill("MOVEDNET", style='sd', palette='PiYG')

Variable(s) "MOVEDNET" contains positive and negative values, so midpoint is set to 0. Set midpoint = NA to show the full spectrum of the color palette.